(rmail-find-all-files): In a directory, ignore `.' and `..'.

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 4ca6c7081290d100bdd350b3b2e620df27f2af2d..296bf4060e79825fa78076d9292f21d7b5ed8787 100644 (file)
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -788,9 +788,10 @@ original copy."
        (while files
          (setq file (car files))
          (setq files (cdr files))
-         (setq ret (nconc
-                    (rmail-find-all-files file)
-                    ret)))
+         (or (member (file-name-nondirectory start) '("." ".."))
+             (setq ret (nconc
+                        (rmail-find-all-files file)
+                        ret))))
        ;; Sort here instead of in directory-files
        ;; because this list is usually much shorter.
        (sort ret 'string<))